(rmail-retry-failure): Unconditionally move to beginning of message.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 04391b74cab57e4881768f045aa554c766914eb2..2094ae4312eca8ad8dc6429ff6786b161d9c8d38 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3038,8 +3038,8 @@ specifying headers which should not be copied into the new message."
     (save-excursion
       ;; Narrow down to just the quoted original message
       (if pruned
-         (rmail-toggle-header 0)
-       (rmail-beginning-of-message))
+         (rmail-toggle-header 0))
+      (rmail-beginning-of-message)
       (let* ((case-fold-search t)
             (top (point))
             (content-type